home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Session 3 < prev    next >
Lisp/Scheme  |  1998-10-26  |  729b  |  38 lines
  1. (setq symbols '(a b c d e f g))
  2.  
  3. (def-symbol
  4.     sax symbols
  5.     clarinet symbols
  6.     trumpet symbols
  7.     violin symbols
  8. )
  9.  
  10. (def-length
  11.     sax '((1/16 1/32 1/32 1/16))
  12.     clarinet '(1/32 1/16 1/32 1/16)
  13.     trumpet '(1/8 1/16)
  14.     violin '((1/16 -1/16))
  15. )
  16.  
  17. (def-channel
  18.     instr1 1
  19.     instr2 2
  20.     instr3 3
  21.     instr4 4
  22. )
  23.  
  24. (setq tonals (activate-tonality (blues1 c 5) (chromatic c 6)))
  25.  
  26. (midiport :printer)
  27.  
  28. (def-tempo 120)
  29.  
  30. (compile-song-p "ccl;output:" 1/4 "Session 3"
  31. ;                       |---|---|---|---|
  32.     changes   tonals   "......       ..."
  33.     sax      changes   "-  - -- - --- --"
  34.     clarinet changes   " -  -- -- -- ---"
  35.     trumpet  changes   "  -   -- -- -- -"
  36.     violin   changes   "   -   --  -----"
  37. )
  38.